home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-09
/
floppies.zip
/
FLOPPY.ZIP
/
FLOPBAC.SC
< prev
next >
Wrap
Text File
|
1992-03-15
|
3KB
|
88 lines
;----------------------FLOPBAC.SC
;------------SET UP BACK UP OPTION
;-------------------SET UP MENU LOOP
CHOICE = " "
WHILE CHOICE <> "EXIT"
;----------------SHOW OPTION MENU.
SHOWMENU
"DRIVE A:" : "BACK UP FILES TO FLOPPY DISK DRIVE A:",
"DRIVE B:" : "BACK UP FILES TO FLOPPY DISK DRIVE B:",
"FORMAT A:": "FORMAT FLOPPY IN DRIVE A: (HD ONLY)",
"FORMAT B:": "FORMAT FLOPPY IN DRIVE B: (HD ONLY)",
"NEW DISK - A:" : "CREATE A NEW BACK-UP FLOPPY IN DRIVE A:",
"NEW DISK - B:" : "CREATE A NEW BACK-UP FLOPPY IN DRIVE B:",
"TIME" : "CHANGE SYTEM TIME",
"DATE" : "CHANGE SYSTEM DATE",
"EXIT" : "RETURN TO MAIN MEMU "
TO CHOICE
;------------------PLAY SCRIPT OF CHOICE.
SWITCH
CASE CHOICE = "DRIVE A:" :
STYLE ATTRIBUTE 142
CLEAR
@ 12,12
?? "INSERT BACK UP DISK IN DRIVE A: "
SLEEP 5000
CLEARALL
CLEAR
IF NOT DRIVESTATUS("A") THEN
CLEAR
@ 12,12 ?? "YOUR FLOPPY DRIVE A: IS NOT READY !!"
SLEEP 3000
PLAY "FLOPBAC"
ELSE
;MENU{TOOLS}{MORE}{TODOS} BACKUP
RUN BIG "PKZIP -F a:FLOPPY"
ENDIF
CLEAR
@ 12,24
?? "RETURNING TO MAIN MENU..."
SLEEP 1500
STYLE
PLAY "FLOPPY"
CASE CHOICE = "DRIVE B:" :
STYLE ATTRIBUTE 142
CLEAR
@ 12,12
?? "INSERT BACK UP DISK IN DRIVE B "
SLEEP 5000
CLEARALL
CLEAR
IF NOT DRIVESTATUS("B") THEN
CLEAR
@12,12 ?? "YOUR DRIVE B: IS NOT READY !!"
SLEEP 3000
PLAY "FLOPBAC"
ELSE
RUN BIG "PKZIP -F B:FLOPPY"
ENDIF
CLEAR
STYLE ATTRIBUTE 142
@ 12,24
?? "RETURNING TO MAIN MENU..."
SLEEP 1500
STYLE
PLAY "FLOPPY"
CASE CHOICE = "FORMAT A:" :
RUN BIG "FORMAT A:"
CASE CHOICE = "FORMAT B:" :
RUN BIG "FORMAT B:"
CASE CHOICE = "NEW DISK - A:" :
RUN BIG "COPY FLOPPY.ZIP A:"
CASE CHOICE = "NEW DISK - B:" :
RUN BIG "COPY FLOPPY.ZIP B:"
CASE CHOICE = "TIME" :
RUN BIG "TIME"
CASE CHOICE = "DATE" :
RUN BIG "DATE"
ENDSWITCH
ENDWHILE
;------------------EXIT
CLEAR
STYLE REVERSE
@ 12,24
?? "RETURNING TO MAIN MENU..."
PLAY "FLOPPY"